home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdboutln.zip / DEMO.DPR < prev    next >
Text File  |  1995-10-19  |  815b  |  28 lines
  1. program Demo;
  2.  
  3. uses
  4.   Forms,
  5.   Maelstrm,
  6.   Main in 'MAIN.PAS' {frmMainForm},
  7.   About in 'ABOUT.PAS' {frmAboutBox},
  8.   Aeemp in 'AEEMP.PAS' {frmAEEmployee}; {AboutBox}
  9.  
  10. {$R *.RES}
  11. var
  12.   SplashScreen : TSplashScreen;  {in the Splash unit}
  13. begin
  14.   Application.Title := 'Maelstrom TDBOutline Demo';
  15.   Application.CreateForm(TfrmMainForm, frmMainForm);
  16.   Application.CreateForm(TfrmAboutBox, frmAboutBox);
  17.   Application.CreateForm(TfrmAEEmployee, frmAEEmployee);
  18.   SplashScreen := TSplashScreen.Create(Application);
  19.   try
  20.     SplashScreen.Show;
  21.     SplashScreen.Update; {Process any pending Windows paint messages}
  22.   finally               {Make sure the splash screen gets released}
  23. {    SplashScreen.Free;}
  24.   end;
  25.   Application.CreateForm(TSplashScreen, SplashScreen);
  26.   Application.Run;
  27. end.
  28.